Celestin Apprentice 2/Apprentice-Release2.iso/Source Code/Mark Pilgrim/Pentominoes 1.4.1/source/Pentominoes ƒ/Pent code/pent files.c

C/C++ Source or Header | 1994-10-30 | 4.4 KB | 171 lines | [TEXT/KAHL]

/**********************************************************************\

File:        pent files.c

Purpose:    This module handles the standard file dialogs for getting
            saved games and saving current games.


Pentominoes - a 2-D geometry board game
Copyright (C) 1993 Mark Pilgrim

This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program in a file named "GNU General Public License".
If not, write to the Free Software Foundation, 675 Mass Ave,
Cambridge, MA 02139, USA.

\**********************************************************************/

#include "Script.h"
#include "pent files.h"
#include "pent load-save.h"
#include "msg graphics.h"
#include "msg environment.h"

Boolean GetSourceFile(FSSpec *gameFile, Boolean AllOfEm, Boolean useOldGame)
{
    Point                where;
    OSErr                isHuman;
    StandardFileReply    reply;
    SFReply                oldReply;
    unsigned int        count;
    SFTypeList            typeList;
    FInfo                fndrInfo;
    long                procID;
    int                    i;

    typeList[0]='PBrd';
    isHuman=FALSE;
    if ((gStandardFile58) && (!useOldGame))
    {
        if (AllOfEm)
            StandardGetFile(0L, -1, 0L, &reply);
        else
            StandardGetFile(0L, 1, typeList, &reply);
    }
    else
    {
        where.h = (gMainScreenBounds.right - 348)/2;
        where.v = (gMainScreenBounds.bottom - 200)/3;
        if (AllOfEm)
            SFGetFile(where, "\p", 0L, -1, 0L, 0L, &oldReply);
        else
            SFGetFile(where, "\p", 0L, 3, typeList, 0L, &oldReply);

        reply.sfGood = oldReply.good;
        if (reply.sfGood)
        {
            reply.sfType = oldReply.fType;
            isHuman=GetWDInfo(oldReply.vRefNum, &reply.sfFile.vRefNum,
                                &reply.sfFile.parID, &procID);
            if (isHuman!=noErr)
            {
                reply.sfFile.vRefNum = oldReply.vRefNum;
                reply.sfFile.parID = 0;
            }
            count=oldReply.fName[0];
            for (i=0; i<=count; i++)
                reply.sfFile.name[i]=oldReply.fName[i];

            reply.sfScript=smSystemScript;
            isHuman=HGetFInfo(reply.sfFile.vRefNum, reply.sfFile.parID,
                                reply.sfFile.name, &fndrInfo);
            reply.sfFlags=(isHuman==noErr) ? fndrInfo.fdFlags : 0;

            reply.sfIsFolder=FALSE;
            reply.sfIsVolume=FALSE;
        }
    }

    if ((reply.sfGood) && (!isHuman))
        MyMakeFSSpec(reply.sfFile.vRefNum, reply.sfFile.parID, reply.sfFile.name,
                            gameFile);

    return ((reply.sfGood) && (!isHuman));
}

Boolean GetDestFile(FSSpec *gameFile, Boolean *deleteTheThing, Boolean isRealGame)
{
    unsigned int        count;
    Str255                otherName;
    StandardFileReply    reply;
    SFReply                oldReply;
    Point                where;
    FInfo                fndrInfo;
    long                procID;
    OSErr                isHuman;
    int                    i;

    if (gStandardFile58)
        if (isRealGame)
            StandardPutFile("\pSave Pentominoes game as...", "\p", &reply);
        else
            StandardPutFile("\pSave Pentominoes solution...", "\p", &reply);
    else
    {
        where.h = (gMainScreenBounds.right - 304)/2;
        where.v = (gMainScreenBounds.bottom - 184)/3;
        if (isRealGame)
            SFPutFile(where, "\pSave Pentominoes game as...", "\p", 0, &oldReply);
        else
            SFPutFile(where, "\pSave Pentominoes solution...", "\p", 0, &oldReply);
        reply.sfGood = oldReply.good;
        if (reply.sfGood)
        {
            isHuman=GetWDInfo(oldReply.vRefNum, &reply.sfFile.vRefNum,
                                &reply.sfFile.parID, &procID);
            if (isHuman!=noErr)
            {
                reply.sfFile.vRefNum = oldReply.vRefNum;
                reply.sfFile.parID = 0;
            }
            count=oldReply.fName[0];
            for (i=0; i<=count; i++)
                reply.sfFile.name[i]=oldReply.fName[i];

            reply.sfScript = smSystemScript;
            isHuman=HGetFInfo(reply.sfFile.vRefNum, reply.sfFile.parID,
                                reply.sfFile.name, &fndrInfo);
            reply.sfReplacing=(isHuman!=fnfErr);

            reply.sfIsFolder=FALSE;
            reply.sfIsVolume=FALSE;
        }
    }

    if (reply.sfGood)
    {
        *deleteTheThing=reply.sfReplacing;
        MyMakeFSSpec(reply.sfFile.vRefNum, reply.sfFile.parID, reply.sfFile.name,
                        gameFile);
    }

    return (reply.sfGood);
}

pascal OSErr MyMakeFSSpec(short vRefNum, long parID, ConstStr255Param fileName,
    FSSpecPtr myFSS)
{
    int            i;

    if (gHasFSSpecs)
        FSMakeFSSpec(vRefNum, parID, fileName, myFSS);
    else
    {
        myFSS->vRefNum=vRefNum;
        myFSS->parID=parID;
        for (i=fileName[0]; i>=0; i--)
            myFSS->name[i]=fileName[i];
    }
}